home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / misc / bws_progs.lha / bws_progs / QGL.PrefsExample < prev    next >
Encoding:
Text File  |  1999-07-22  |  1.1 KB  |  35 lines
  1.  
  2.  
  3. ;---------CUT-ME------------------------------------
  4. ; FIRST Check Command QGL is in C:
  5.  
  6. IF NOT EXISTS c:qgl
  7. IF `requestchoice "SETUP QGL" "Can I Copy QGL TO Your*nCommand Path *"SYS:C/*"" "YES|NO"` EQ 1
  8. Copy Clone QGL C:
  9. ENDIF
  10. ENDIF
  11.  
  12. ; NEXT THE ACTUAL COMMAND
  13. ; Delete All texts in "--CUT-ME--" IF QGL "IS" IN C:
  14. ;--------CUT-ME-------------------------------------
  15.  
  16.  
  17. ; Example Script For Using "QGL" By Bruce Steers
  18. ; http://www.bsteers.freeuk.com
  19. ; I Have This Script Executed Pressing CTRL_P with FKey
  20.  
  21. CD sys:prefs   ; SYS:PREFS DIR
  22.  
  23. IF `requestchoice "Prefs Machine" "Run Once Or*nStay Until Quit" "_Hold|_Only Once"` EQ 1
  24. alias qglr "c:QGL [] T=*"System Prefs*" A S"
  25.  
  26. ELSE
  27.  
  28. alias qglr "c:QGL [] T=*"System Prefs*" A"
  29.  
  30. ENDIF
  31.  
  32. qglr Request "run <>nil: *`requestfile drawer sys:prefs pattern ~(#?.info)*`" Screen "run <>nil: Screenmode" Pattern "run <>nil: wbpattern" fonts "run <>nil: font" Overscan "run <>nil: Overscan" Sound "run <>nil: Sound" Time "run <>nil: Time" Palette "run <>nil: Palette" ToolsPrefs "run <>nil: ToolsPrefs" MCP_Prefs "run <>nil: MCPPrefs"
  33.  
  34. unalias qglr
  35.